home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MATH / MATH3871 / DEMO387.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-05-13  |  401 b   |  19 lines
  1. {$N+}
  2. program demo387;
  3. uses
  4.   math7387;
  5. var
  6.   x : extended;
  7.   i : longint;
  8. begin
  9.   if not test387 then
  10.     error387;
  11.   writeln ('Doing 300000 sines using library routine ...');
  12.   for i := 1 to 300000 do
  13.     x := sin (1.3);
  14.   writeln ('Doing 300000 sines using MATH387 routine ...');
  15.   for i := 1 to 300000 do
  16.     x := e_sin (1.3);
  17.   writeln ('Done! See the speed difference?');
  18. end.
  19.